home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0090 / usingthe.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-30  |  28.7 KB  |  841 lines
  1. 100  REM USINGTHE Program.
  2. 110  REM Documentation.  Using the Programs.
  3. 120  REM Copyright (c) 1982 ... 1989 by: Melvin O. Duke.
  4. 130  DATA Genealogy
  5. 140  DATA User's Manual
  6. 150  DATA -5
  7. 160  DATA 1
  8. 170  INDENT = 0
  9. 180  REM Printer Definitions
  10. 190  FORM.FEED$  = CHR$(12)
  11. 200  COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  12. 210  BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  13. 220  EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  14. 230  DASHES$ = "+"+STRING$(54,45)+"+"
  15. 240  TRIM.LINE$ = "(Trim-line)"
  16. 300  REM Program begins here
  17. 310  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  18. 320  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  19. 330  GOSUB 920  'For trim line and heading space
  20. 340  FOR I = 1 TO 6 : LPRINT : NEXT I
  21. 350  LPRINT BOLD.ON$;     'Set Emphasized mode
  22. 360  LPRINT EXPAND.ON$;   'Set Expanded Print
  23. 370  LPRINT TAB(TAB.POS-1);TITLE$
  24. 380  LPRINT EXPAND.OFF$;  'Return to normal
  25. 390  LPRINT BOLD.OFF$;    'Return to normal
  26. 400  FOR I = 1 TO 3 : LPRINT : NEXT I
  27. 410  LPRINT BOLD.ON$;     'Set Emphasized mode
  28. 420  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  29. 430  LPRINT BOLD.OFF$;    'Return to normal
  30. 440  LPRINT : LPRINT : LPRINT
  31. 450  LPRINT TAB(TAB.POS+11);"Version 6.0"
  32. 460  FOR I = 1 TO 11 : LPRINT : NEXT I
  33. 470  LPRINT TAB(TAB.POS+10); DOC.NAME$
  34. 480  LINE.NO = LINE.NO + 27
  35. 490  '
  36. 500  READ REPLY$
  37. 510  REM First, change tildes to quotes
  38. 520  FOR Q = 1 TO LEN(REPLY$)
  39. 530   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  40. 540  NEXT Q
  41. 550  IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  42. 560  IF LINE.NO > 44 THEN GOSUB 1030
  43. 570  REM Print the line if not a command
  44. 580  LPRINT TAB(TAB.POS);REPLY$
  45. 590  LINE.NO = LINE.NO + 1
  46. 600  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  47. 610  GOTO 500
  48. 620  REM Data for the Copyright Page
  49. 630  DATA ".pa"
  50. 640  DATA " "
  51. 750  DATA ".vt 31"
  52. 870  DATA "Copyright (c) 1983 ... 1989, by:"
  53. 880  DATA "Melvin O. Duke."
  54. 890  DATA ".sp"
  55. 900  DATA "All rights reserved."
  56. 910  '
  57. 920  REM Top of each page routine
  58. 930  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  59. 940  LPRINT
  60. 950  LPRINT TAB(30); TRIM.LINE$
  61. 960  LPRINT DASHES$ 'Dashes
  62. 970  FOR I = 1 TO 6
  63. 980   LPRINT
  64. 990  NEXT I
  65. 1000  LINE.NO = LINE.NO + 6
  66. 1010  RETURN
  67. 1020  '
  68. 1030  REM Bottom of each page Routine
  69. 1040  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  70. 1050  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  71. 1060  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 6.0" 'on line 47
  72. 1070  IF PAGE.NO MOD 2 = 1 THEN 1110
  73. 1080  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  74. 1090  LPRINT TAB(TAB.POS+27);"User's Manual"
  75. 1100  GOTO 1160
  76. 1110  LPRINT TAB(TAB.POS); "User's Manual";
  77. 1120  IF PAGE.NO < 10 THEN DELTA = 34
  78. 1130  IF PAGE.NO >  9 THEN DELTA = 33
  79. 1140  IF PAGE.NO > 99 THEN DELTA = 32
  80. 1150  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  81. 1160  LPRINT : LPRINT : LPRINT
  82. 1170  LPRINT DASHES$ 'dashes after 51
  83. 1180  LPRINT TAB(30); TRIM.LINE$
  84. 1190  LPRINT FORM.FEED$;
  85. 1200  PAGE.NO = PAGE.NO + 1
  86. 1210  LINE.NO = 1
  87. 1220  IF REPLY$ = ".eof" THEN 1240  'Bypass after last page
  88. 1230  GOSUB 920  'For top of next page
  89. 1240  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  90. 1250  RETURN
  91. 1260  '
  92. 1270  REM Command Processor
  93. 1280  IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  94. 1290  IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  95. 1300  IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  96. 1310  IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  97. 1320  IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  98. 1330  IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  99. 1340  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  100. 1350  IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  101. 1360  IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  102. 1370  IF LEFT$(REPLY$,3) = ".in" THEN 2170
  103. 1380  STOP
  104. 1390  REM Head 1 Processor
  105. 1400  FOR I = LINE.NO TO 44
  106. 1410   LPRINT
  107. 1420  NEXT I
  108. 1430  GOSUB 1030  'Bottom of page Routine
  109. 1440  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  'For h1 on Odd pages
  110. 1450  LPRINT BOLD.ON$;     'Set emphasized print
  111. 1460  LPRINT EXPAND.ON$;   'Set expanded print
  112. 1470  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 ELSE ADJUST = -5
  113. 1480  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  114. 1490  LPRINT EXPAND.OFF$;  'Return to normal
  115. 1500  LPRINT BOLD.OFF$;    'Return to non-bold
  116. 1510  LINE.NO = LINE.NO+1
  117. 1520  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  118. 1530  RETURN
  119. 1540  '
  120. 1550  REM Head 2 Processor
  121. 1560  IF LINE.NO = 7 THEN 1580 'skip spacing if at top of page
  122. 1570  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  123. 1580  LPRINT BOLD.ON$;  'Set emphasized print
  124. 1590  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  125. 1600  LPRINT BOLD.OFF$; 'Return to normal
  126. 1610  LPRINT
  127. 1620  LINE.NO = LINE.NO + 2
  128. 1630  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  129. 1640  RETURN
  130. 1650  '
  131. 1660  REM Head 3 Processor
  132. 1670  IF LINE.NO = 7 THEN 1690 'skip spacing if at top of page
  133. 1680  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  134. 1690  LPRINT BOLD.ON$;  'Set emphasized print
  135. 1700  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  136. 1710  LPRINT BOLD.OFF$; 'Return to normal
  137. 1720  LPRINT
  138. 1730  LINE.NO = LINE.NO + 2
  139. 1740  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  140. 1750  RETURN
  141. 1760  '
  142. 1770  REM Single Space Processor
  143. 1780  IF LINE.NO = 7 THEN 1800
  144. 1790  IF LINE.NO > 44 THEN GOSUB 1860 ELSE LPRINT : LINE.NO = LINE.NO + 1
  145. 1800  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  146. 1810  RETURN
  147. 1820  REM End of File Processor
  148. 1830  GOSUB 1860 'Bottom of Page
  149. 1850  GOTO 9550
  150. 1860  REM Page Eject Processor
  151. 1870  FOR I = LINE.NO TO 44
  152. 1880   LPRINT
  153. 1890   LINE.NO = LINE.NO + 1
  154. 1900  NEXT I
  155. 1910  GOSUB 1030  'Bottom of Page Processing
  156. 1920  RETURN
  157. 1930  REM Vertical Tab Processor
  158. 1940  IF LINE.NO = 7 THEN 2030
  159. 1950  IF LINE.NO > 44 THEN GOSUB 1030  'End of page
  160. 1960  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  161. 1970  FOR I = 1 TO QTY
  162. 1980   LPRINT
  163. 1990   LINE.NO = LINE.NO + 1
  164. 2000   IF LINE.NO > 44 THEN I = QTY
  165. 2010  NEXT I
  166. 2020  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  167. 2030  RETURN
  168. 2040  REM Pack Processor
  169. 2050  IF LINE.NO > 44 THEN GOSUB 1030
  170. 2060  IF TAB.POS = 8 THEN ADJUST = 4
  171. 2070  IF TAB.POS = 13 THEN ADJUST = 7
  172. 2080  TAB.POS = TAB.POS + ADJUST + INDENT
  173. 2090  WIDTH "lpt1:", 132 'set condensed width
  174. 2100  LPRINT COMPR.ON$;  'Packed printing
  175. 2110  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  176. 2120  LPRINT COMPR.OFF$; 'Return to normal
  177. 2130  WIDTH "lpt1:", 80  'return to normal
  178. 2140  LINE.NO = LINE.NO + 1
  179. 2150  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 2160  RETURN
  181. 2170  REM Indent Processor
  182. 2180  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  183. 2190  RETURN
  184. 3000  DATA ".h1 USING THE PROGRAMS"
  185. 3010  DATA ".pn 23"
  186. 3020  DATA ".h2 GETTING STARTED"
  187. 3030  DATA "Whatever the environment, the User"
  188. 3040  DATA "should be working with a copy of the"
  189. 3050  DATA "Distribution Diskette, not from the"
  190. 3060  DATA "original, which should not be changed."
  191. 3070  DATA ".sp"
  192. 3080  DATA "Whether the User is starting for the"
  193. 3090  DATA "first time, or running at a later time,"
  194. 3100  DATA "the procedure is the same.  BASIC is"
  195. 3110  DATA "required (with a record size set to"
  196. 3120  DATA "256), and the MENU Program must be run."
  197. 3130  DATA ".sp"
  198. 3140  DATA "A few differences exist, depending upon"
  199. 3150  DATA "the User's Hardware.  The following"
  200. 3160  DATA "sections describe First Time Usage for"
  201. 3170  DATA "three different configurations, as well"
  202. 3180  DATA "as Operating within those environments."
  203. 3190  DATA ".pa"
  204. 3200  DATA ".h2 First Time Usage - One-Drive System"
  205. 3210  DATA "Begin with two formatted diskettes."
  206. 3220  DATA "(These should be formatted without in-"
  207. 3230  DATA "cluding the System.)"
  208. 3240  DATA ".sp"
  209. 3250  DATA "Label one of them your Data Diskette,"
  210. 3260  DATA "and the other your Program Diskette."
  211. 3270  DATA ".sp"
  212. 3280  DATA "Copy the contents of the Genealogy ON"
  213. 3290  DATA "DISPLAY Distribution Diskette to the"
  214. 3300  DATA "diskette labeled 'Program Diskette'."
  215. 3310  DATA "(Note:  Refer to the DISKCOPY Command"
  216. 3320  DATA "in your DOS Manual.)"
  217. 3330  DATA ".sp"
  218. 3340  DATA "Copy MENU.BAS and VERIFILE from the"
  219. 3350  DATA "Distribution Diskette to your Data"
  220. 3360  DATA "Diskette.  (Note:  Refer to the COPY"
  221. 3370  DATA "Command in your DOS Manual.)"
  222. 3380  DATA ".sp"
  223. 3390  DATA "(Skip to the section on First Time"
  224. 3400  DATA "Usage for all Systems, below.)"
  225. 3410  DATA ".pa"
  226. 3420  DATA ".h2 First Time Usage - Two-Drive System"
  227. 3430  DATA "Begin with two formatted diskettes."
  228. 3440  DATA "(These should be formatted without in-"
  229. 3450  DATA "cluding the System.)"
  230. 3460  DATA ".sp"
  231. 3470  DATA "Label one of them your Data Diskette,"
  232. 3480  DATA "and the other your Program Diskette."
  233. 3490  DATA ".sp"
  234. 3500  DATA "Copy the contents of the Genealogy ON"
  235. 3510  DATA "DISPLAY Distribution Diskette to the"
  236. 3520  DATA "diskette labeled 'Program Diskette'."
  237. 3530  DATA "(Note:  Refer to the DISKCOPY Command"
  238. 3540  DATA "in your DOS Manual.)"
  239. 3550  DATA ".sp"
  240. 3560  DATA "Next, with your DOS Diskette (which"
  241. 3570  DATA "contains BASIC in your a: drive,"
  242. 3580  DATA "bring up BASIC by typing:"
  243. 3590  DATA ".sp"
  244. 3600  DATA "   basic/s:256   (and press 'enter')"
  245. 3610  DATA ".sp"
  246. 3620  DATA "Now, replace the DOS Diskette with"
  247. 3630  DATA "your new Program Diskette, and edit"
  248. 3640  DATA "the MENU.BAS Program to identify"
  249. 3650  DATA "where your files will be.  Type:"
  250. 3660  DATA ".sp"
  251. 3670  DATA "  load ~menu~  (and press 'enter')"
  252. 3680  DATA ".sp"
  253. 3690  DATA "Next, type:"
  254. 3700  DATA ".sp"
  255. 3710  DATA "  edit 440       (and press 'enter')"
  256. 3720  DATA ".sp"
  257. 3730  DATA "Insert a b:\ between the two quotes"
  258. 3740  DATA "    (i.e.  440 DD.PERS$  = ~b:\~"
  259. 3750  DATA "     and press 'enter')"
  260. 3760  DATA ".pa"
  261. 3770  DATA "Do the same thing for lines 450, 470,"
  262. 3780  DATA "and 480."
  263. 3790  DATA ".sp"
  264. 3800  DATA "If you want an LDS Ordinance File,"
  265. 3810  DATA "change the ~no~ in line 460 to ~b:\~"
  266. 3820  DATA "as well."
  267. 3830  DATA ".sp"
  268. 3840  DATA "Save the changed MENU Program.  Type:"
  269. 3850  DATA ".sp"
  270. 3860  DATA "  save ~menu~  (and press 'enter')"
  271. 3870  DATA ".sp"
  272. 3880  DATA "(Skip to the section on First Time"
  273. 3890  DATA "Usage for all Systems, below.)"
  274. 3900  DATA ".pa"
  275. 3910  DATA ".h2 First Time Usage - Hard-Disk System"
  276. 3920  DATA "Begin by making a Sub-directory on your"
  277. 3930  DATA "hard-disk for the Genealogy ON DISPLAY"
  278. 3940  DATA "Programs, and their data files.  Type:"
  279. 3950  DATA ".sp"
  280. 3960  DATA "   mkdir \genondis  (and press 'enter')"
  281. 3970  DATA ".sp"
  282. 3980  DATA "Copy the BASIC Processor into the new"
  283. 3990  DATA "Sub-directory.  Type:"
  284. 4000  DATA ".sp"
  285. 4010  DATA "  copy c:\basic.com  c:\genondis"
  286. 4020  DATA "  (and press 'enter')"
  287. 4030  DATA ".sp"
  288. 4040  DATA "Next, copy the contents of the Distri-"
  289. 4050  DATA "bution Diskette of Genealogy ON DISPLAY"
  290. 4060  DATA "to that Sub-directory.  Type:"
  291. 4070  DATA ".sp"
  292. 4080  DATA "  copy a:\*.*  c:\genondis"
  293. 4090  DATA "  (and press 'enter')"
  294. 4100  DATA ".pa"
  295. 4110  DATA ".h2 First Time Usage - All Systems"
  296. 4120  DATA ".h3 Formatting the Data Files"
  297. 4130  DATA "Each of the Data Files which you will"
  298. 4140  DATA "be using must be formatted (created)"
  299. 4150  DATA "initially, before you can enter any"
  300. 4160  DATA "genealogical information.  This will"
  301. 4170  DATA "mean bringing up BASIC, running the"
  302. 4180  DATA "MENU Program, and selecting options"
  303. 4190  DATA "1 and 2 (and 3 if you want an LDS"
  304. 4200  DATA "Ordinance File)."
  305. 4210  DATA ".sp"
  306. 4220  DATA "Refer to the next section, 'HOW TO"
  307. 4230  DATA "OPERATE'."
  308. 4240  DATA ".h3 Caution
  309. 4250  DATA "A word of extreme caution:  Once you"
  310. 4260  DATA "have run the CREATPER Program, the"
  311. 4270  DATA "CREATMAR Program, and the CREATORD"
  312. 4280  DATA "Programs, you do NOT, repeat NOT, want"
  313. 4290  DATA "to run them again (at least not"
  314. 4300  DATA "against the same files)."
  315. 4310  DATA ".sp"
  316. 4320  DATA "To do so would mean that you would"
  317. 4330  DATA "wipe-out any previous data that was in"
  318. 4340  DATA "the files at the time that you ran the"
  319. 4350  DATA "programs again."
  320. 4360  DATA ".pa"
  321. 4370  DATA ".h2 HOW TO OPERATE."
  322. 4380  DATA "Operation is slightly different, de-"
  323. 4390  DATA "pending upon the hardware that you"
  324. 4400  DATA "are using."
  325. 4410  DATA ".sp"
  326. 4420  DATA "Essentially, it is necessary to turn"
  327. 4430  DATA "on your computer, bring up DOS,"
  328. 4440  DATA "establish the date and time (if you"
  329. 4450  DATA "do not already have that as part of"
  330. 4460  DATA "your system), bring up BASIC, and"
  331. 4470  DATA "RUN the MENU.BAS Program."
  332. 4480  DATA ".sp"
  333. 4490  DATA ".h2 How to Operate - One-Drive System"
  334. 4500  DATA "With your DOS System in your Diskette"
  335. 4510  DATA "Drive, turn on your system."
  336. 4520  DATA ".sp"
  337. 4530  DATA "Respond to any messages about date"
  338. 4540  DATA "and time that may occur."
  339. 4550  DATA ".sp"
  340. 4560  DATA "Next, bring up BASIC by typing:"
  341. 4570  DATA ".sp"
  342. 4580  DATA "   basic/s:256   (and press 'enter')"
  343. 4590  DATA ".sp~
  344. 4600  DATA "Now, place your Genealogy ON DISPLAY"
  345. 4610  DATA "Program Diskette in your Diskette"
  346. 4620  DATA "Drive, and type:"
  347. 4630  DATA ".sp"
  348. 4640  DATA "  run ~menu~"
  349. 4650  DATA ".sp"
  350. 4660  DATA "Follow any directions that appear at"
  351. 4670  DATA "the bottom of the display screen."
  352. 4680  DATA ".pa"
  353. 4690  DATA ".h2 How to Operate - Two-Drive System"
  354. 4700  DATA "With your DOS System in your a: Disk-"
  355. 4710  DATA "ette Drive, turn on your system."
  356. 4720  DATA ".sp"
  357. 4730  DATA "Respond to any messages about date"
  358. 4740  DATA "and time that may occur."
  359. 4750  DATA ".sp"
  360. 4760  DATA "Next, bring up BASIC by typing:"
  361. 4770  DATA ".sp"
  362. 4780  DATA "   basic/s:256   (and press 'enter')"
  363. 4790  DATA ".sp~
  364. 4800  DATA "Now, place your Genealogy ON DISPLAY"
  365. 4810  DATA "Program Diskette in your a: Diskette"
  366. 4820  DATA "Drive, and your Data Diskette in your"
  367. 4830  DATA "b: Diskette Drive.  Then type:"
  368. 4840  DATA ".sp"
  369. 4850  DATA "  run ~menu~     (and press 'enter')"
  370. 4860  DATA ".sp"
  371. 4870  DATA "Follow any directions that appear at"
  372. 4880  DATA "the bottom of the display screen."
  373. 4890  DATA ".pa"
  374. 4900  DATA ".h2 How to Operate - Hard-Disk System"
  375. 4910  DATA "Turn on your system."
  376. 4920  DATA ".sp"
  377. 4930  DATA "Change to the Genealogy ON DISPLAY"
  378. 4940  DATA "Sub-directory.  Type:"
  379. 4950  DATA ".sp"
  380. 4960  DATA "  cd\genondis    (and press 'enter')"
  381. 4970  DATA ".sp"
  382. 4980  DATA "Now, bring up BASIC and start the"
  383. 4990  DATA "MENU Program.  Type:"
  384. 5000  DATA ".sp"
  385. 5010  DATA "  basic menu/s:256"
  386. 5020  DATA "                 (and press 'enter')"
  387. 5030  DATA ".sp"
  388. 5040  DATA "Follow any directions that appear at"
  389. 5050  DATA "the bottom of the display screen."
  390. 5060  DATA ".pa"
  391. 5070  DATA ".h3 Operating the CREATPER Program.
  392. 5080  DATA "After selecting the CREATPER Program,"
  393. 5090  DATA "the user sees the program Title and"
  394. 5100  DATA "Copyright displayed on the screen."
  395. 5110  DATA "He should then press any key to cause"
  396. 5120  DATA "the program to continue."
  397. 5130  DATA ".sp"
  398. 5140  DATA "The record numbers of the records to"
  399. 5150  DATA "be written are controlled by the"
  400. 5160  DATA "contents of lines 610 and 630 in the"
  401. 5170  DATA "MENU Program.  Initially these are"
  402. 5180  DATA "set to 500 and 0 respectively.  This"
  403. 5190  DATA "means that records from 1 through 500"
  404. 5200  DATA "will be written, if the user chooses"
  405. 5210  DATA "to do so."
  406. 5220  DATA ".sp"
  407. 5230  DATA "A second screen is displayed, to give"
  408. 5240  DATA "the user a chance to change his mind."
  409. 5250  DATA "If he REALLY wants to format these"
  410. 5260  DATA "records, he replies by typing:"
  411. 5270  DATA ".sp"
  412. 5280  DATA "   yes      (and presses 'enter')"
  413. 5290  DATA ".sp"
  414. 5300  DATA "and the records are written to the"
  415. 5310  DATA "Persons File."
  416. 5320  DATA ".pa"
  417. 5330  DATA ".h3 Operating the CREATMAR Program.
  418. 5340  DATA "After selecting the CREATMAR Program,"
  419. 5350  DATA "the user sees the program Title and"
  420. 5360  DATA "Copyright displayed on the screen."
  421. 5370  DATA "He should then press any key to cause"
  422. 5380  DATA "the program to continue."
  423. 5390  DATA ".sp"
  424. 5400  DATA "The record numbers of the records to"
  425. 5410  DATA "be written are controlled by the"
  426. 5420  DATA "contents of lines 620 and 640 in the"
  427. 5430  DATA "MENU Program.  Initially these are"
  428. 5440  DATA "set to 200 and 0 respectively.  This"
  429. 5450  DATA "means that records from 1 through 200"
  430. 5460  DATA "will be written, if the user chooses"
  431. 5470  DATA "to do so."
  432. 5480  DATA ".sp"
  433. 5490  DATA "A second screen is displayed, to give"
  434. 5500  DATA "the user a chance to change his mind."
  435. 5510  DATA "If he REALLY wants to format these"
  436. 5520  DATA "records, he replies by typing:"
  437. 5530  DATA ".sp"
  438. 5540  DATA "   yes      (and presses 'enter')"
  439. 5550  DATA ".sp"
  440. 5560  DATA "and the records are written to the"
  441. 5570  DATA "Marriages File."
  442. 5580  DATA ".pa"
  443. 5590  DATA ".h3 Operating the CREATORD Program.
  444. 5600  DATA "After selecting the CREATORD Program,"
  445. 5610  DATA "the user sees the program Title and"
  446. 5620  DATA "Copyright displayed on the screen."
  447. 5630  DATA "He should then press any key to cause"
  448. 5640  DATA "the program to continue."
  449. 5650  DATA ".sp"
  450. 5660  DATA "The record numbers of the records to"
  451. 5670  DATA "be written are controlled by the"
  452. 5680  DATA "contents of lines 610 and 630 in the"
  453. 5690  DATA "MENU Program.  Initially these are"
  454. 5700  DATA "set to 500 and 0 respectively.  This"
  455. 5710  DATA "means that records from 1 through 500"
  456. 5720  DATA "will be written, if the user chooses"
  457. 5730  DATA "to do so."
  458. 5740  DATA ".sp"
  459. 5750  DATA "A second screen is displayed, to give"
  460. 5760  DATA "the user a chance to change his mind."
  461. 5770  DATA "If he REALLY wants to format these"
  462. 5780  DATA "records, he replies by typing:"
  463. 5790  DATA ".sp"
  464. 5800  DATA "   yes      (and presses 'enter')"
  465. 5810  DATA ".sp"
  466. 5820  DATA "and the records are written to the"
  467. 5830  DATA "Ordinances File."
  468. 5840  DATA ".pa"
  469. 5850  DATA ".h3 Operating the UPDATPER Program."
  470. 5860  DATA "After selecting the UPDATPER Program,"
  471. 5870  DATA "the user sees the program Title and"
  472. 5880  DATA "Copyright on the screen.  He should"
  473. 5890  DATA "then press any key to continue."
  474. 5900  DATA ".sp"
  475. 5910  DATA "After the logo is displayed, the user"
  476. 5920  DATA "is asked which record he wants to up-"
  477. 5930  DATA "date.  He should respond with a valid"
  478. 5940  DATA "number in the range of 1 to 500."
  479. 5950  DATA ".sp"
  480. 5960  DATA "(Note:  If you just want to find an"
  481. 5970  DATA "unused record, you may type a question-"
  482. 5980  DATA "mark.  A search will be made from the"
  483. 5990  DATA "the beginning of the file, or from the"
  484. 6000  DATA "last record which you referenced, until"
  485. 6010  DATA "an unused record is found, or the top"
  486. 6020  DATA "of the file is reached.)"
  487. 6030  DATA ".sp"
  488. 6040  DATA "The current content of the record is"
  489. 6050  DATA "shown.  If the record has never been"
  490. 6060  DATA "used, the record-number shown will be"
  491. 6070  DATA "negative.  As long as this number is"
  492. 6080  DATA "negative, it will be bypassed for any"
  493. 6090  DATA "further processing.  The user should"
  494. 6100  DATA "enter the record-number."
  495. 6110  DATA ".sp"
  496. 6120  DATA "The user is prompted for input.  He may"
  497. 6130  DATA "bypass any field by pressing the enter"
  498. 6140  DATA "key.  He may also bypass all remaining"
  499. 6150  DATA "fields by typing / and then pressing"
  500. 6160  DATA "the enter key."
  501. 6170  DATA ".sp"
  502. 6180  DATA "Note:  Dates should be entered as:"
  503. 6190  DATA "dd Mmm yyyy, such as: 16 Jan 1943."
  504. 6200  DATA ".pa"
  505. 6210  DATA "When finished with his updating, he is"
  506. 6220  DATA "asked to indicate what he wants to do"
  507. 6230  DATA "with the record.  He may either 'save'"
  508. 6240  DATA "it, he may 'forget' it, or he may make"
  509. 6250  DATA "'more' changes to the record.  As soon"
  510. 6260  DATA "as he says 'save', the record is saved"
  511. 6270  DATA "and he is once more prompted about the"
  512. 6280  DATA "next record to update."
  513. 6290  DATA ".sp"
  514. 6300  DATA "When he is through, he should indicate"
  515. 6310  DATA "that he wants to update record 0."
  516. 6320  DATA ".pa"
  517. 6330  DATA ".h3 Operating the UPDATMAR Program."
  518. 6340  DATA "After selecting the UPDATMAR Program,"
  519. 6350  DATA "the user sees the Program Title and"
  520. 6360  DATA "Copyright on the screen.  He should"
  521. 6370  DATA "then press any key to continue."
  522. 6380  DATA ".sp"
  523. 6390  DATA "After the logo is displayed, the user"
  524. 6400  DATA "is asked which record he wants to up-"
  525. 6410  DATA "date.  He should respond with a valid"
  526. 6420  DATA "number in the range of 1 to 200."
  527. 6430  DATA ".sp"
  528. 6440  DATA "(Note:  If you just want to find an"
  529. 6450  DATA "unused record, you may type a question-"
  530. 6460  DATA "mark.  A search will be made from the"
  531. 6470  DATA "the beginning of the file, or from the"
  532. 6480  DATA "last record which you referenced, until"
  533. 6490  DATA "an unused record is found, or the top"
  534. 6500  DATA "of the file is reached.)"
  535. 6510  DATA ".sp"
  536. 6520  DATA "The current content of the record is"
  537. 6530  DATA "shown.  If the record has never been"
  538. 6540  DATA "used, the record-number shown will be"
  539. 6550  DATA "negative.  As long as this number is"
  540. 6560  DATA "negative, it will be bypassed for any"
  541. 6570  DATA "further processing.  The user should"
  542. 6580  DATA "enter the record-number."
  543. 6590  DATA ".sp"
  544. 6600  DATA "The user is prompted for input.  He may"
  545. 6610  DATA "bypass any field by pressing the enter"
  546. 6620  DATA "key.  He may also bypass all remaining"
  547. 6630  DATA "fields by typing / and then pressing"
  548. 6640  DATA "the enter key."
  549. 6650  DATA ".pa"
  550. 6660  DATA "When finished with his updating, he is"
  551. 6670  DATA "asked to indicate what he wants to do"
  552. 6680  DATA "with the record.  He may either 'save'"
  553. 6690  DATA "it, he may 'forget' it, or he may make"
  554. 6700  DATA "'more' changes to the record.  As soon"
  555. 6710  DATA "as he says 'save', the record is saved"
  556. 6720  DATA "and he is once more prompted about the"
  557. 6730  DATA "next record to update."
  558. 6740  DATA ".sp"
  559. 6750  DATA "When he is through, he should indicate"
  560. 6760  DATA "that he wants to update record 0."
  561. 6770  DATA ".pa"
  562. 6780  DATA ".h2 Operating the UPDATORD Program."
  563. 6790  DATA "After selecting the UPDATORD Program,"
  564. 6800  DATA "the user sees the Program Title and"
  565. 6810  DATA "Copyright on the screen.  He should"
  566. 6820  DATA "then press any key to continue."
  567. 6830  DATA ".sp"
  568. 6840  DATA "After the logo is displayed, the user"
  569. 6850  DATA "is asked which record he wants to up-"
  570. 6860  DATA "date.  He should respond with a valid"
  571. 6870  DATA "number in the range of 1 to 500."
  572. 6880  DATA ".sp"
  573. 6890  DATA "(Note:  You cannot search for an unused"
  574. 6900  DATA "ordinances record, since it is always"
  575. 6910  DATA "associated with a person's record.)"
  576. 6920  DATA ".sp"
  577. 6930  DATA "The user is prompted for input.  He may"
  578. 6940  DATA "bypass any field by pressing the enter"
  579. 6950  DATA "key.  He may also bypass all remaining"
  580. 6960  DATA "fields by typing / and then pressing"
  581. 6970  DATA "the enter key."
  582. 6980  DATA ".sp"
  583. 6990  DATA "Dates should be entered as: dd Mmm yyyy,"
  584. 7000  DATA "such as:  22 Aug 1922."
  585. 7010  DATA ".sp"
  586. 7020  DATA "When finished with his updating, he is"
  587. 7030  DATA "asked to indicate what he wants to do"
  588. 7040  DATA "with the record.  He may either 'save'"
  589. 7050  DATA "it, he may 'forget' it, or he may make"
  590. 7060  DATA "'more' changes to the record.  As soon"
  591. 7070  DATA "as he says 'save', the record is saved"
  592. 7080  DATA "and he is once more prompted about the"
  593. 7090  DATA "next record to update."
  594. 7100  DATA ".sp"
  595. 7110  DATA "When he is through, he should indicate"
  596. 7120  DATA "that he wants to update record 0."
  597. 7130  DATA ".pa"
  598. 7140  DATA ".h3 Operating the INDEXPC Program."
  599. 7150  DATA "The INDEXPC Program is fundamental to"
  600. 7160  DATA "the preparation of a parent/child index,"
  601. 7170  DATA "which associates parents with their"
  602. 7180  DATA "children."
  603. 7190  DATA ".sp"
  604. 7200  DATA "It should be run after any additions"
  605. 7210  DATA "of persons to the Persons File, when-"
  606. 7220  DATA "ever birthdates are added or changed,"
  607. 7230  DATA "or when identification of parents have"
  608. 7240  DATA "been added or changed."
  609. 7250  DATA ".sp"
  610. 7260  DATA "After selecting the INDEXPC Program,"
  611. 7270  DATA "the user sees the Program Title and"
  612. 7280  DATA "Copyright on the screen.  He should"
  613. 7290  DATA "then press any key to continue."
  614. 7300  DATA ".sp"
  615. 7310  DATA "A data file named PCINDEX will be"
  616. 7320  DATA "created."
  617. 7330  DATA ".pa"
  618. 7340  DATA ".h3 Operating the INDEXMAR Program."
  619. 7350  DATA "The INDEXMAR program is fundamental to"
  620. 7360  DATA "the preparation of a marriages index,"
  621. 7370  DATA "which associates spouses with each"
  622. 7380  DATA "other."
  623. 7390  DATA ".sp"
  624. 7400  DATA "It should be run after marriages are"
  625. 7410  DATA "added to the Marriages File, whenever"
  626. 7420  DATA "marriage-dates are added or changed,"
  627. 7430  DATA "or whenever changes are made which re-"
  628. 7440  DATA "identify spouses."
  629. 7450  DATA ".sp"
  630. 7460  DATA "After selecting the INDEXMAR Program,"
  631. 7470  DATA "the user sees the Program Title and"
  632. 7480  DATA "Copyright on the screen.  He should"
  633. 7490  DATA "then press any key to continue."
  634. 7500  DATA ".sp"
  635. 7510  DATA "A data file named MINDEX will be"
  636. 7520  DATA "created."
  637. 7530  DATA ".pa"
  638. 7540  DATA ".h3 Operating the DISPLAY Program."
  639. 7550  DATA "Before running the DISPLAY Program,"
  640. 7560  DATA "the user should know that any changes"
  641. 7570  DATA "that he has made to the data files may"
  642. 7580  DATA "have made his indexes out-of-date."
  643. 7590  DATA "This will have happened if the user"
  644. 7600  DATA "has entered a new person, a new"
  645. 7610  DATA "marriage, a new relationship (such as"
  646. 7620  DATA "a reference to a parent), a new"
  647. 7630  DATA "birth-date, a new marriage-date, or"
  648. 7640  DATA "a new Name."
  649. 7650  DATA ".sp"
  650. 7660  DATA "The indexes are still correct if the"
  651. 7670  DATA "user has entered new death-dates,"
  652. 7680  DATA "burial-dates, or any information about"
  653. 7690  DATA "locations (cities, counties, states)"
  654. 7700  DATA "of births, deaths, ordinances, etc."
  655. 7710  DATA ".sp"
  656. 7720  DATA "If the indexes are out-of-date, the"
  657. 7730  DATA "user should update them before running"
  658. 7740  DATA "the DISPLAY Program, by running the"
  659. 7750  DATA "INDEXPER and INDEXMAR Programs."
  660. 7760  DATA ".sp"
  661. 7770  DATA "After selecting the DISPLAY Program,"
  662. 7780  DATA "the user sees the Program Title and"
  663. 7790  DATA "Copyright on the screen.  He should"
  664. 7800  DATA "then press any key to continue."
  665. 7810  DATA ".sp"
  666. 7820  DATA "After the logo is displayed, the user"
  667. 7830  DATA "is asked for the record-number of the"
  668. 7840  DATA "person that he wants to locate.  He"
  669. 7850  DATA "should enter a number which he knows to"
  670. 7860  DATA "be valid."
  671. 7870  DATA ".pa"
  672. 7880  DATA "The personal information about that"
  673. 7890  DATA "person will then be shown on the display."
  674. 7900  DATA ".sp"
  675. 7910  DATA "The user may then enter 'ps' (print"
  676. 7920  DATA "the screen), he may enter 'an' (for an"
  677. 7930  DATA "ancestor chart), he may enter 'fg' (for"
  678. 7940  DATA "a family group), he may enter 'o' (for"
  679. 7950  DATA "ordinance information), he may enter 'p'"
  680. 7960  DATA "followed by a valid number (requesting"
  681. 7970  DATA "information about a person), he may enter"
  682. 7980  DATA "'m' followed by a valid number (requesting"
  683. 7990  DATA "information about a marriage), or he may"
  684. 8000  DATA "enter 'q' (asking to quit)."
  685. 8010  DATA ".sp"
  686. 8020  DATA "When the ancestor information appears,"
  687. 8030  DATA "the user may then enter 'ps' (print the"
  688. 8040  DATA "screen, he may enter 'fg' (requesting"
  689. 8050  DATA "a family group), he may enter 'o' (for"
  690. 8060  DATA "ordinance information), He may enter 'an'"
  691. 8070  DATA "(asking that the chart of ancestors be"
  692. 8080  DATA "re-drawn), he may enter 'l' followed by"
  693. 8090  DATA "a valid number (requesting personal"
  694. 8100  DATA "information about a person on the stated"
  695. 8110  DATA "line), he may enter 'm' followed by a"
  696. 8120  DATA "valid number (requesting information"
  697. 8130  DATA "about a marriage), or he may enter 'q'"
  698. 8140  DATA "(asking to quit)."
  699. 8150  DATA ".pa"
  700. 8160  DATA "When the family group information appears,"
  701. 8170  DATA "the user may enter 'ps' (print the"
  702. 8180  DATA "screen), he may enter 'f' (asking for the"
  703. 8190  DATA "father), he may enter 'm' (asking for the"
  704. 8200  DATA "mother), he may enter 'p' followed by a"
  705. 8210  DATA "valid number (asking for about a person),"
  706. 8220  DATA "he may enter 'c' followed by a valid"
  707. 8230  DATA "number (asking for information about a"
  708. 8240  DATA "child), he may enter 'm' followed by a"
  709. 8250  DATA "valid number (requesting information"
  710. 8260  DATA "about a marriage, or he may enter 'q'"
  711. 8270  DATA "(asking to quit)."
  712. 8280  DATA ".sp"
  713. 8290  DATA "When the ordinance information appears,"
  714. 8300  DATA "The user may then enter 'ps' (print"
  715. 8310  DATA "the screen), he may enter 'an' (for an"
  716. 8320  DATA "ancestor chart), he may enter 'fg' (for"
  717. 8330  DATA "a family group), he may enter 'o' (for"
  718. 8340  DATA "ordinance information), he may enter 'p'"
  719. 8350  DATA "followed by a valid number (requesting"
  720. 8360  DATA "information about a person), he may enter"
  721. 8370  DATA "'m' followed by a valid number (request-"
  722. 8380  DATA "ing information about a marriage), or he"
  723. 8390  DATA "may enter 'q' (asking to quit)."
  724. 8400  DATA ".pa"
  725. 8410  DATA ".h2 Operating the ANCESTOR Program"
  726. 8420  DATA "After selecting the ANCESTOR Program,"
  727. 8430  DATA "the user sees the Program Title and"
  728. 8440  DATA "Copyright on the screen.  He should"
  729. 8450  DATA "then press any key to continue."
  730. 8460  DATA ".sp"
  731. 8470  DATA "He should then follow any instructions"
  732. 8480  DATA "which appear at the bottom of the screen,"
  733. 8490  DATA "specifying the person-number of the per-"
  734. 8500  DATA "son whose Chart of Ancestors is desired."
  735. 8510  DATA "(Note:  If the record selected is empty,"
  736. 8520  DATA "a blank ancestor chart will be printed.)"
  737. 8530  DATA ".sp"
  738. 8540  DATA "Note:  Any available printer paper which"
  739. 8550  DATA "fits your printer may be used."
  740. 8560  DATA ".pa"
  741. 8570  DATA ".h2 Operating the FAMILY Program"
  742. 8580  DATA "After selecting the FAMILY Program,"
  743. 8590  DATA "the user sees the Program Title and"
  744. 8600  DATA "Copyright on the screen.  He should"
  745. 8610  DATA "then press any key to continue."
  746. 8620  DATA ".sp"
  747. 8630  DATA "He should then follow any instructions"
  748. 8640  DATA "which appear at the bottom of the screen,"
  749. 8650  DATA "specifying the marriage-number of the"
  750. 8660  DATA "marriage whose Chart of Family is de-"
  751. 8670  DATA "sired.  (Note:  If the record selected"
  752. 8680  DATA "is empty, a blank Chart of Family will"
  753. 8690  DATA "be be printed.)"
  754. 8700  DATA ".sp"
  755. 8710  DATA "Note:  Any available printer paper which"
  756. 8720  DATA "fits your printer may be used."
  757. 8730  DATA ".pa"
  758. 8740  DATA ".h3 Operating the DESCEND Program"
  759. 8750  DATA "After selecting the DESCEND Program,"
  760. 8760  DATA "the user sees the Program Title and"
  761. 8770  DATA "Copyright on the screen.  He should"
  762. 8780  DATA "then press any key to continue."
  763. 8790  DATA ".sp"
  764. 8800  DATA "He should then follow any instructions"
  765. 8810  DATA "which appear at the bottom of the screen,"
  766. 8820  DATA "specifying the person-number of the"
  767. 8830  DATA "person whose Chart of Descendants is"
  768. 8840  DATA "desired."
  769. 8850  DATA ".h3 Operating the Other Programs."
  770. 8860  DATA "After selecting one of the other pro-"
  771. 8870  DATA "grams, the user sees the Program Title"
  772. 8880  DATA "and Copyright on the screen.  He should"
  773. 8890  DATA "then press any key to continue."
  774. 8900  DATA ".sp"
  775. 8910  DATA "Note:  See the Summary (in Appendix B)"
  776. 8920  DATA "for the names of the other programs."
  777. 8930  DATA ".sp"
  778. 8940  DATA "After the logo is displayed, the user"
  779. 8950  DATA "observes the information that is being"
  780. 8960  DATA "shown on the display screen, and waits"
  781. 8970  DATA "for the program to complete."
  782. 8980  DATA ".pa"
  783. 8990  DATA ".h2 HOW TO STOP."
  784. 9000  DATA "The user may stop at any time, by"
  785. 9010  DATA "pressing (and holding down) the Function"
  786. 9020  DATA "(FN) key, and then pressing the Break"
  787. 9030  DATA "(B) key on the PCjr."
  788. 9040  DATA ".sp"
  789. 9050  DATA "The user may stop at any time, by"
  790. 9060  DATA "pressing (and holding down) the control"
  791. 9070  DATA "(Ctrl) key, and then pressing the Break"
  792. 9080  DATA "key on the other members of the IBM PC"
  793. 9090  DATA "Family of Computers."
  794. 9100  DATA ".sp"
  795. 9110  DATA ".h3 Stopping the Update Programs."
  796. 9120  DATA "The user may stop one of the update"
  797. 9130  DATA "programs (UPDATPER, UPDATMAR, or"
  798. 9140  DATA "UPDATORD) by requesting an update of"
  799. 9150  DATA "record 0."
  800. 9160  DATA ".h3 Stopping the DISPLAY Program."
  801. 9170  DATA "The user may stop the DISPLAY Program"
  802. 9180  DATA "by typing 'q' or 'quit' when he is asked"
  803. 9190  DATA "for his next action, or he may type"
  804. 9200  DATA "'p0', to request person-number 0."
  805. 9210  DATA ".h3 Stopping the ANCESTOR Program."
  806. 9220  DATA "The user may stop the ANCESTOR Program"
  807. 9230  DATA "by asking for a printout of the ances-"
  808. 9240  DATA "tors of person-number 0."
  809. 9250  DATA ".pa"
  810. 9260  DATA ".h3 Stopping the FAMILY Program."
  811. 9270  DATA "The user may stop the FAMILY Program"
  812. 9280  DATA "by asking for a printout of the family"
  813. 9290  DATA "whose marriage-number is 0."
  814. 9300  DATA ".h3 Stopping the DESCEND Program."
  815. 9310  DATA "The user may stop the DESCEND Program"
  816. 9320  DATA "by asking for the display or printout"
  817. 9330  DATA "of the descendants of the person whose"
  818. 9340  DATA "person-number is 0."
  819. 9350  DATA ".h3 Stopping the Other Programs."
  820. 9360  DATA "The other programs may only be stopped"
  821. 9370  DATA "with the 'function-break' or the"
  822. 9380  DATA "'control-break' sequence, as indicated"
  823. 9390  DATA "above.  However, the user is cautioned"
  824. 9400  DATA "that if he does this while writing new"
  825. 9410  DATA "indexes to the diskette (during the"
  826. 9420  DATA "running of the INDEXPC or INDEXMAR"
  827. 9430  DATA "programs), the index that is currently"
  828. 9440  DATA "being written may be destroyed, and"
  829. 9450  DATA "will have to be re-built before the"
  830. 9460  DATA "DISPLAY, PEDIGREE, FAMILY and ALPHAMAR"
  831. 9470  DATA "programs are run."
  832. 9480  DATA ".sp"
  833. 9490  DATA "The damaged index can be re-built by"
  834. 9500  DATA "re-running the INDEXPC or INDEXMAR"
  835. 9510  DATA "program which was stopped with the"
  836. 9520  DATA "'function-break' or 'control-break'"
  837. 9530  DATA "sequence."
  838. 9540  DATA ".pa"
  839. 9550  DATA ".eof"
  840. 9560  END
  841.